home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / MM2_DEV / S / UTILITY / MODLIST.M < prev    next >
Encoding:
Text File  |  1990-07-16  |  1.3 KB  |  55 lines
  1. MODULE ModList;
  2.  
  3. (*
  4.  * Gibt eine Liste aller z.Zt. in der Shell importierten Module aus.
  5.  * Ist ähnlich der Funktion <Alternate>-R in der Shell.
  6.  *)
  7.  
  8. IMPORT GEMDOSIO; (*$E MOS *)
  9.  
  10. FROM SYSTEM IMPORT ADDRESS;
  11.  
  12. FROM InOut IMPORT
  13.   WriteLn, Write, WriteString, WriteLHex;
  14.  
  15. FROM Strings IMPORT Length;
  16.  
  17. FROM ModCtrl IMPORT ModQuery;
  18.  
  19. PROCEDURE listIt ( REF modName:  ARRAY OF CHAR;
  20.                        modAddr:  ADDRESS;
  21.                        modLen:   LONGCARD;
  22.                        varAddr:  ADDRESS;
  23.                        varLen:   LONGCARD;
  24.                    REF fileName: ARRAY OF CHAR;
  25.                        module:   BOOLEAN;
  26.                        loaded:   BOOLEAN;
  27.                        resident: BOOLEAN );
  28.  
  29.   VAR i: CARDINAL;  c: CHAR;
  30.  
  31.   BEGIN
  32.     WriteString ( modName );
  33.     FOR i:= 1 TO 20 - Length (modName) DO Write (' ') END;
  34.     WriteString ('Code: ');
  35.     WriteLHex ( modAddr, 7 );
  36.     IF ~module THEN
  37.       WriteString (' / program')
  38.     ELSE
  39.       WriteString ('  Var: ');
  40.       WriteLHex ( varAddr, 7 );
  41.       WriteString ('  VLen: ');
  42.       WriteLHex ( varLen, 7 );
  43.       IF loaded THEN WriteString (' / loaded') END;
  44.       IF resident THEN WriteString (' / resident') END
  45.     END;
  46.     WriteLn;
  47.   END listIt;
  48.  
  49. VAR ch:CHAR;
  50.  
  51. BEGIN
  52.   WriteLn;
  53.   ModQuery ( listIt );
  54. END ModList.
  55.